home *** CD-ROM | disk | FTP | other *** search
/ Virtual Top Model / Virtual Top Model - Disc 1.iso / modulos / mod-2.dxr / Internal_4_Boton avance foto.ls < prev    next >
Encoding:
Text File  |  1997-04-01  |  1.3 KB  |  42 lines
  1. on mouseUp
  2.   global sSerie, nSerie, nOrden, nMaxSerie, lnDesFilm
  3.   if rollOver(24) then
  4.     puppetSprite(24, 0)
  5.     set the member of sprite 24 to member "BtMod_2_A/1" of castLib "elementos graficos"
  6.     updateStage()
  7.     if nOrden < nMaxSerie then
  8.       set nOrden to nOrden + 1
  9.       set sMiembro to nOrden & "p"
  10.       set the member of sprite 30 to member sMiembro of castLib sSerie
  11.       puppetTransition(member 3 of castLib "Transiciones")
  12.       updateStage()
  13.       if (nMaxSerie - 7) >= getAt(lnDesFilm, nSerie) then
  14.         setAt(lnDesFilm, nSerie, getAt(lnDesFilm, nSerie) + 1)
  15.         repeat with xx = 1 to 10
  16.           set the locH of sprite nSerie to the locH of sprite nSerie - 3
  17.           updateStage()
  18.         end repeat
  19.         set the locH of sprite nSerie to the locH of sprite nSerie - 1
  20.         updateStage()
  21.       else
  22.         repeat with xx = 1 to 31
  23.           set the locH of sprite 9 to the locH of sprite 9 + 1
  24.           updateStage()
  25.         end repeat
  26.       end if
  27.     end if
  28.   end if
  29. end
  30.  
  31. on mouseDown
  32.   repeat while the stillDown
  33.     puppetSprite(24, 1)
  34.     if rollOver(24) then
  35.       set the member of sprite 24 to member "BtMod_2_B/1" of castLib "elementos graficos"
  36.     else
  37.       set the member of sprite 24 to member "BtMod_2_A/1" of castLib "elementos graficos"
  38.     end if
  39.     updateStage()
  40.   end repeat
  41. end
  42.